home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / oldproc.ph < prev    next >
Text File  |  1991-08-11  |  3KB  |  83 lines
  1. if (!defined &_PROCUSER) {
  2.     eval 'sub _PROCUSER {1;}';
  3.     require 'spriteTime.ph';
  4.     require 'sig.ph';
  5.     require 'kernel/mach.ph';
  6.     if (defined &KERNEL) {
  7.     require 'user/vm.ph';
  8.     }
  9.     else {
  10.     require 'vm.ph';
  11.     }
  12.     eval 'sub PROC_TERM_EXITED {1;}';
  13.     eval 'sub PROC_TERM_DETACHED {2;}';
  14.     eval 'sub PROC_TERM_SIGNALED {3;}';
  15.     eval 'sub PROC_TERM_DESTROYED {4;}';
  16.     eval 'sub PROC_TERM_SUSPENDED {5;}';
  17.     eval 'sub PROC_TERM_RESUMED {6;}';
  18.     eval 'sub PROC_BAD_STACK {1;}';
  19.     eval 'sub PROC_BAD_PSW {2;}';
  20.     eval 'sub PROC_VM_READ_ERROR {3;}';
  21.     eval 'sub PROC_VM_WRITE_ERROR {4;}';
  22.     eval 'sub PROC_MY_PID {(( &Proc_PID) 0xffffffff);}';
  23.     eval 'sub PROC_MY_HOSTID {(( &unsigned \'int\') 0xffffffff);}';
  24.     eval 'sub PROC_INDEX_MASK {0x000000FF;}';
  25.     eval 'sub Proc_PIDToIndex {
  26.         local($pid) = @_;
  27.         eval "($pid &  &PROC_INDEX_MASK)";
  28.     }';
  29.     eval 'sub PROC_ALL_PROCESSES {(( &Proc_PID) 0);}';
  30.     eval 'sub PROC_NO_FAMILY {( &Proc_PID) -1;}';
  31.     eval 'sub Proc_In_A_Family {
  32.         local($familyID) = @_;
  33.         eval "($familyID !=  &PROC_NO_FAMILY)";
  34.     }';
  35.     eval 'sub PROC_SUPER_USER_ID {0;}';
  36.     eval 'sub PROC_NO_ID {-1;}';
  37.     eval 'sub PROC_MIN_PRIORITY {-2;}';
  38.     eval 'sub PROC_MAX_PRIORITY {2;}';
  39.     eval 'sub PROC_NO_INTR_PRIORITY {2;}';
  40.     eval 'sub PROC_HIGH_PRIORITY {1;}';
  41.     eval 'sub PROC_NORMAL_PRIORITY {0;}';
  42.     eval 'sub PROC_LOW_PRIORITY {-1;}';
  43.     eval 'sub PROC_VERY_LOW_PRIORITY {-2;}';
  44.     eval 'sub PROC_KERNEL {0x00001;}';
  45.     eval 'sub PROC_USER {0x00002;}';
  46.     eval 'sub PROC_DEBUGGED {0x00004;}';
  47.     eval 'sub PROC_DEBUG_ON_EXEC {0x00008;}';
  48.     eval 'sub PROC_SINGLE_STEP_FLAG {0x00010;}';
  49.     eval 'sub PROC_DEBUG_WAIT {0x00020;}';
  50.     eval 'sub PROC_MIG_PENDING {0x00040;}';
  51.     eval 'sub PROC_DONT_MIGRATE {0x00080;}';
  52.     eval 'sub PROC_FOREIGN {0x00100;}';
  53.     eval 'sub PROC_DIEING {0x00200;}';
  54.     eval 'sub PROC_LOCKED {0x00400;}';
  55.     eval 'sub PROC_NO_VM {0x00800;}';
  56.     eval 'sub PROC_MIGRATING {0x01000;}';
  57.     eval 'sub PROC_MIGRATION_DONE {0x02000;}';
  58.     eval 'sub PROC_ON_DEBUG_LIST {0x04000;}';
  59.     eval 'sub PROC_REMOTE_EXEC_PENDING {0x08000;}';
  60.     eval 'sub PROC_MIG_ERROR {0x10000;}';
  61.     eval 'sub PROC_WAIT_BLOCK {0x1;}';
  62.     eval 'sub PROC_WAIT_FOR_SUSPEND {0x2;}';
  63.     eval 'sub PROC_NUM_GENERAL_REGS {16;}';
  64.     eval 'sub PROC_MAX_ENVIRON_NAME_LENGTH {512;}';
  65.     eval 'sub PROC_MAX_ENVIRON_VALUE_LENGTH {512;}';
  66.     eval 'sub PROC_MAX_ENVIRON_SIZE {100;}';
  67.     eval 'sub PROC_MAX_INTERPRET_SIZE {80;}';
  68.     eval 'sub PROC_TIMER_REAL {0;}';
  69.     eval 'sub PROC_MAX_TIMER { &PROC_TIMER_REAL;}';
  70.     eval 'sub PROC_PCB_ARG_LENGTH {256;}';
  71.     eval 'sub PROC_MIG_IMPORT_NEVER {0;}';
  72.     eval 'sub PROC_MIG_IMPORT_ROOT {0x00000001;}';
  73.     eval 'sub PROC_MIG_IMPORT_ALL {0x00000003;}';
  74.     eval 'sub PROC_MIG_IMPORT_ANYINPUT {0x00000010;}';
  75.     eval 'sub PROC_MIG_IMPORT_ANYLOAD {0x00000020;}';
  76.     eval 'sub PROC_MIG_IMPORT_ALWAYS {( &PROC_MIG_IMPORT_ANYINPUT |  &PROC_MIG_IMPORT_ANYLOAD);}';
  77.     eval 'sub PROC_MIG_EXPORT_NEVER {0;}';
  78.     eval 'sub PROC_MIG_EXPORT_ROOT {0x00010000;}';
  79.     eval 'sub PROC_MIG_EXPORT_ALL {0x00030000;}';
  80.     eval 'sub PROC_MIG_ALLOW_DEFAULT {( &PROC_MIG_IMPORT_ALL |  &PROC_MIG_EXPORT_ALL);}';
  81. }
  82. 1;
  83.